﻿Public Class frmContenedor
    ' VAMOS A CREAR LAS CLASES, EN ESTE EJEMPLO LA LISTA DE PERSONAS JURIDICAS.
    Dim listaPersonasJuridicas As New LinkedList(Of PersonaJurica)
    ' codigo de pamela.
    Dim listaempresa As New LinkedList(Of Empresa)
    ' codigo de Milagros.
    Dim Listaproducto As New LinkedList(Of Producto)
    ' codigo de cesar
    Dim listausuario As New LinkedList(Of Login)
    ' codigo de  Junior
    Dim listaproveedor As New LinkedList(Of Proveedor)
    ' codigo de milady
    Dim listapersonaNatural As New LinkedList(Of PersonaNatural)

    ' jhan
    Dim listaPromociones As New LinkedList(Of Promocion)

    ' VAMOS A ALMACENAR EL PROCESO PADRE
    Dim nombreProceso As String

    Public Property ListaPersonasJuridicasTotales As LinkedList(Of PersonaJurica)
        Get
            Return ListaPersonasJuridicas
        End Get
        Set(ByVal value As LinkedList(Of PersonaJurica))
            listaPersonasJuridicas = value

        End Set
    End Property

    Public Property ListaPromocionesTotales As LinkedList(Of Promocion)
        Get
            Return listaPromociones
        End Get
        Set(ByVal value As LinkedList(Of Promocion))
            listaPromociones = value

        End Set
    End Property

    Public Property ProcesoPadre As String
        Get
            Return nombreProceso
        End Get
        Set(ByVal value As String)
            nombreProceso = value

        End Set
    End Property
    ' codigo de junior
    Public Property ListaproveedorTotales As LinkedList(Of Proveedor)
        Get
            Return listaproveedor
        End Get
        Set(ByVal value As LinkedList(Of Proveedor))
            listaproveedor = value

        End Set
    End Property
    ' codigo de cesar
    Public Property ListaloginTotales As LinkedList(Of Login)
        Get
            Return listausuario
        End Get
        Set(ByVal value As LinkedList(Of Login))
            listausuario = value

        End Set
    End Property
    ' copdigo de Milagros
    Public Property ListaProductoTotales As LinkedList(Of Producto)
        Get
            Return Listaproducto
        End Get
        Set(ByVal value As LinkedList(Of Producto))
            Listaproducto = value


        End Set
    End Property
    ' codigo de pamela
    Public Property ListaempresaTotales As LinkedList(Of Empresa)
        Get
            Return listaempresa
        End Get
        Set(ByVal value As LinkedList(Of Empresa))
            listaempresa = value

        End Set
    End Property
    ' codigo de milaydi
    Public Property ListaclientenaturalTotales As LinkedList(Of PersonaNatural)
        Get
            Return listapersonaNatural
        End Get
        Set(ByVal value As LinkedList(Of PersonaNatural))
            listapersonaNatural = value

        End Set
    End Property




    Private Sub PRODUCTOSToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

       Private Sub LISTAREMPREToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LISTAREMPREToolStripMenuItem.Click
        Dim frmlistar As New FRMlistadeEmpresa

        ' error pamela 
        ' antes
        ' FRMlistadeEmpresa.ListaEmpresaTotales = listaempresa
        ' deberia quedar
        frmlistar.ListaEmpresaTotales = listaempresa
        frmlistar.MdiParent = Me
        frmlistar.Show()
    End Sub

    Private Sub frmContenedor_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' vamos a llenar de datos
        Dim persona As New PersonaJurica
        persona.Codigo = "PER001"
        persona.Nombre = "YURY DANIEL"
        persona.Telefono = "949204197"
        persona.Direccion = "Av. España 22"
        persona.Dni = "46154394"
        listaPersonasJuridicas.AddLast(persona)

        'codigo de pamela, 08 de abril
        Dim miempresa As New Empresa
        miempresa.direccionEmpresa = "av.ayacucho 102"
        miempresa.domicilioFiscalEmpresa = " trujillo"
        miempresa.nomEmpresa = "oro Azul"
        miempresa.numerodeTelefonoEmpresa = "412563"
        miempresa.personaContactoEmpresa = "luis pereda"
        listaempresa.AddFirst(miempresa)

        'codigo de milagros,12 para siempre.
        Dim miprodcuto As New Producto
        miprodcuto.CodigoProducto = "PR001"
        miprodcuto.NombreProducto = "Doncafe"
        miprodcuto.TipoProducto = "Cafe"
        miprodcuto.MarcaProducto = "Avicola"
        Listaproducto.AddFirst(miprodcuto)

        'codigo de cesitar, 8 deabrildel2013
        ' Dim miusuario As New Login
        '  miusuario.caducidadlogin = New Date(2013, 4, 8)
        '  miusuario.IDsusariologin = "US001"
        '  miusuario.paswordlogin = "654321"
        ' miusuario.usuariologin = "Cesar"
        'Crea nuevo
        'miusuario = New Login
        'miusuario.paswordlogin = "123456"
        '  listausuario.AddFirst(miusuario)

        ' codigo de junior, 08 de abril
        Dim miproveedor As New Proveedor
        miproveedor.celularproveedor = "948305076"
        miproveedor.codigoproveedor = "001"
        miproveedor.direcciónproveedor = "santo dominguito"
        miproveedor.nombreproveedor = "Junior"
        miproveedor.telefonoproveedor = "320020"

        ' creando nuevo

        listaproveedor.AddFirst(miproveedor)



        'codigo de mileydi, 08 de abril 
        Dim mipersonaNatural As New PersonaNatural
        mipersonaNatural.Codigo = "P001"
        mipersonaNatural.Direccion = "Av. España 22"
        mipersonaNatural.Dni = "46580245"
        mipersonaNatural.Nombre = "juan perez"
       
        listapersonaNatural.AddFirst(mipersonaNatural)

    End Sub

    Private Sub frmContenedor_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub LISTADECLIENTESToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LISTADECLIENTESToolStripMenuItem.Click
        Dim FrmListaCLientesJuricos As New frmListaCLientes

        FrmListaCLientesJuricos.ListaPersonasJuridicasTotales = listaPersonasJuridicas
        FrmListaCLientesJuricos.MdiParent = Me
        FrmListaCLientesJuricos.Show()
    End Sub

    Private Sub frmContenedor_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
        Dim proceso() As System.Diagnostics.Process = Process.GetProcessesByName(nombreProceso)
        proceso.First.Kill()

    End Sub

    Private Sub LISTARTODOSLOSPRODUCTOSToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LISTARTODOSLOSPRODUCTOSToolStripMenuItem.Click
        ' FELICITACIONES MILAGROS NO EXISTIO NI UN SOLO ERROR EN TU CODIGO :)
        Dim lista As New FRMListaProducto
        lista.ListaProductosTotales = Listaproducto
        lista.MdiParent = Me
        lista.Show()
    End Sub

    Private Sub LISTADEUSUARIOSToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LISTADEUSUARIOSToolStripMenuItem.Click
        Dim frmlistadeusuario As New FRMlistausuario

        frmlistadeusuario.listausuariototales = listausuario
        frmlistadeusuario.MdiParent = Me
        frmlistadeusuario.Show()
    End Sub

    Private Sub LISTARPROVEEDORToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LISTARPROVEEDORToolStripMenuItem.Click
        Dim frmlistar As New frmlistaproveedor
        ' Junior Error
        ' aqui se debe llamar al objeto que le hacemos dim, el de color negro no al de color celeste.
        ' antes
        'frmlistaproveedor.Listaproveedortotales = listaproveedor
        'despues
        frmlistar.Listaproveedortotales = listaproveedor
        frmlistar.MdiParent = Me
        frmlistar.Show()
    End Sub

    Private Sub LISTDADECLIENTESNATURALESToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LISTDADECLIENTESNATURALESToolStripMenuItem.Click
        Dim frmclientenatural As New Frmlistaclientesnaturales
        frmclientenatural.ListaPersonaNaturaltotal = listapersonaNatural
        frmclientenatural.MdiParent = Me
        frmclientenatural.Show()
    End Sub

    Private Sub NUEVOCLIENTEJURIDICOToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NUEVOCLIENTEJURIDICOToolStripMenuItem.Click
        Dim myfrmCLienteJuridico As New FrmRegistrarClienteJuridico
        myfrmCLienteJuridico.MdiParent = Me
        myfrmCLienteJuridico.Show()

    End Sub

    Private Sub REGISTRARNUEVOPRODUCTOToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles REGISTRARNUEVOPRODUCTOToolStripMenuItem.Click
        Dim frmRegistrarProducto As New FrmRegistrarProducto
        frmRegistrarProducto.MdiParent = Me
        frmRegistrarProducto.Show()

    End Sub

    Private Sub REGISTRARPROVEEDORToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles REGISTRARPROVEEDORToolStripMenuItem.Click
        Dim frmregistrar As New frmregistrarproveedor
        frmregistrar.MdiParent = Me
        frmregistrar.Show()
    End Sub

    Private Sub EDITARDATOSToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDITARDATOSToolStripMenuItem.Click
        Dim frmregistrar As New FRMRegistrarEmpresa
        frmregistrar.MdiParent = Me
        frmregistrar.Show()
    End Sub

    Private Sub NUEVOCLIENTENATURALToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NUEVOCLIENTENATURALToolStripMenuItem.Click
        Dim frmregistrar As New FrmRegistrarclientenatural
        frmregistrar.MdiParent = Me
        frmregistrar.Show()
    End Sub

    Private Sub NUEVOUSUARIOToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NUEVOUSUARIOToolStripMenuItem.Click
        Dim frmregistrar As New FRMregistrarusuario
        frmregistrar.MdiParent = Me
        frmregistrar.Show()
    End Sub

    Private Sub NUEVAPROMOCIONToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NUEVAPROMOCIONToolStripMenuItem.Click
        Dim FRMREGISTRAR As New frmRegistrarPromocionvb
        FRMREGISTRAR.MdiParent = Me
        FRMREGISTRAR.Show()
    End Sub

    Private Sub LISTAPROMOCIONESToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LISTAPROMOCIONESToolStripMenuItem.Click
        Dim frmlistarPromocion As New frmListarPromociones
        frmlistarPromocion.MdiParent = Me
        frmlistarPromocion.ListaPromocionesTotales = listaPromociones
        frmlistarPromocion.Show()
    End Sub

    Private Sub VERINTEGRANTESToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VERINTEGRANTESToolStripMenuItem.Click
        Dim frmIntegrantes As New frmIntegrantes
        frmIntegrantes.MdiParent = Me
        frmIntegrantes.Show()

    End Sub

    Private Sub VENTAPORBOLETAToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VENTAPORBOLETAToolStripMenuItem.Click
        Dim frmVentaBoleta As New frmVentaBoleta
        frmVentaBoleta.MdiParent = Me
        ' enviandole las listas desde contenedor
        frmVentaBoleta.ListaProductosTotales = Listaproducto
        frmVentaBoleta.ListaclientenaturalTotales = listapersonaNatural
        frmVentaBoleta.ListaempresaTotales = listaempresa
        frmVentaBoleta.Show()
    End Sub
End Class